home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)ua.d64 / dsp.turtlejoy2 < prev    next >
Text File  |  2007-02-28  |  899b  |  50 lines
  1. // DELETE "EXT.TURTLEJOY2"
  2. // SAVE   "EXT.TURTLEJOY2"
  3. // BY ─AVID ╘URNER & ─AVID ╙KINNER
  4. //    ON ═AY 18, 1985
  5. //
  6. //DRAW USING JOYSTICK
  7. //
  8. ╨╥╧├ TURTLEJOY ├╠╧╙┼─
  9.   ╘╥┴╨ ┼╙├-
  10.   ╒╙┼ TURTLE
  11.   ╒╙┼ JOYSTICKS
  12.   WINDOW(0,319,0,199)
  13.   GRAPHICSCREEN(0)
  14.   PENCOLOR(7)
  15.   TURTLESIZE(8)
  16.   PLOTTEXT(20,192,"╨LUG ╩OYSTICK INTO ├╧╬╘╥╧╠ ╨ORT #2")
  17.   PLOTTEXT(80,182,"╨RESS ╙╘╧╨ KEY TO END")
  18.   SHOWTURTLE
  19.   ╫╚╔╠┼ ╬╧╘ ┼╙├ ─╧
  20.     JOYSTICK(2,JD,FB)
  21.     ├┴╙┼ JD ╧╞
  22.     ╫╚┼╬ 1
  23.       FORWARD(3)
  24.     ╫╚┼╬ 2
  25.       FORWARD(3); RIGHT(3)
  26.     ╫╚┼╬ 3
  27.       RIGHT(3)
  28.     ╫╚┼╬ 4
  29.       BACK(3); RIGHT(3)
  30.     ╫╚┼╬ 5
  31.       BACK(3)
  32.     ╫╚┼╬ 6
  33.       BACK(3); LEFT(3)
  34.     ╫╚┼╬ 7
  35.       LEFT(3)
  36.     ╫╚┼╬ 8
  37.       FORWARD(3); LEFT(3)
  38.     ╫╚┼╬ 0
  39.     ╧╘╚┼╥╫╔╙┼ 
  40.       ╨╥╔╬╘ JB
  41.     ┼╬─├┴╙┼ 
  42.     ╔╞ FB=1 ╘╚┼╬ PENCOLOR((INQ(6)+1) ═╧─ 16)
  43.   ┼╬─╫╚╔╠┼ 
  44.   ╫╚╔╠┼ ┼╙├ ─╧ ╬╒╠╠
  45.   ╘╥┴╨ ┼╙├+
  46. ┼╬─╨╥╧├ TURTLEJOY
  47. //
  48. TURTLEJOY
  49. ┼╬─ "╨RESS ├TRL-─ TO PRINT PICTURE"
  50.